
Namespace Log
    Public Class EntradaLog

        Public Sub New()

        End Sub

        Public Sub New(ByVal origem As String, ByVal tipo As Log.LogManager.TipoEnum, _
                        ByVal status As Log.LogManager.StatusEnum, _
                        ByVal mensagem As String, ByVal detalhes As String, _
                        ByVal configuracao As String, ByVal resumo As String, ByVal nrosentencas As Integer, _
                        ByVal metodo As Sumarizador.metodoResumo, ByVal fontes As String, _
                        ByVal avaliacaoUsuario As Short, _
                        ByVal ip As String)
            _origem = origem
            _status = status
            _tipo = tipo
            _mensagem = mensagem
            _detalhes = detalhes
            _configuracao = configuracao
            _resumo = resumo
            _fontes = fontes
            _avaliacaoUsuario = avaliacaoUsuario
            _ipOrigem = ip
            _nroSentencas = nrosentencas
            _metodoResumo = metodo

        End Sub

        Private _origem As String
        Public Property Origem() As String
            Get
                Return _origem
            End Get
            Set(ByVal value As String)
                _origem = value
            End Set
        End Property

        Private _tipo As Log.LogManager.TipoEnum
        Public Property Tipo() As Log.LogManager.TipoEnum
            Get
                Return _tipo
            End Get
            Set(ByVal value As Log.LogManager.TipoEnum)
                _tipo = value
            End Set
        End Property

        Private _mensagem As String
        Public Property Mensagem() As String
            Get
                Return _mensagem
            End Get
            Set(ByVal value As String)
                _mensagem = value
            End Set
        End Property

        Private _status As Log.LogManager.StatusEnum
        Public Property StatusLog() As Log.LogManager.StatusEnum
            Get
                Return _status
            End Get
            Set(ByVal value As Log.LogManager.StatusEnum)
                _status = value
            End Set
        End Property

        Private _detalhes As String
        Public Property Detalhes() As String
            Get
                Return _detalhes
            End Get
            Set(ByVal value As String)
                _detalhes = value
            End Set
        End Property


        Private _configuracao As String
        Public Property Configuracao() As String
            Get
                Return _configuracao
            End Get
            Set(ByVal value As String)
                _configuracao = value
            End Set
        End Property

        Private _nroSentencas As Integer
        Public Property nroSentencas() As Integer
            Get
                Return _nroSentencas
            End Get
            Set(ByVal value As Integer)
                _nroSentencas = value
            End Set
        End Property


        Private _metodoResumo As Sumarizador.metodoResumo
        Public Property metodoResumo() As Sumarizador.metodoResumo
            Get
                Return _metodoResumo
            End Get
            Set(ByVal value As Sumarizador.metodoResumo)
                _metodoResumo = value
            End Set
        End Property

        Private _resumo As String
        Public Property Resumo() As String
            Get
                Return _resumo
            End Get
            Set(ByVal value As String)
                _resumo = value
            End Set
        End Property

        Private _fontes As String
        Public Property Fontes() As String
            Get
                Return _fontes
            End Get
            Set(ByVal value As String)
                _fontes = value
            End Set
        End Property

        Private _avaliacaoUsuario As Short
        Public Property AvaliacaoUsuario() As Short
            Get
                Return _avaliacaoUsuario
            End Get
            Set(ByVal value As Short)
                _avaliacaoUsuario = value
            End Set
        End Property

        Private _ipOrigem As String
        Public Property IP() As String
            Get
                Return _ipOrigem
            End Get
            Set(ByVal value As String)
                _ipOrigem = value
            End Set
        End Property

    End Class
End Namespace